home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
vbsource.zip
/
RECEDIT.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-09-11
|
11KB
|
223 lines
Form1
Form1
Form1
FieldBoxes
FieldBoxes
Label1
F&irst Name
Label2
&Last Name
FieldBoxes
FieldBoxes
FieldBoxes
Label3
Salar&y
Label4
Label5
NextRecord
&Next Record
PreviousRocord
&Previous Record
OpenFile
&Open File
AddRecord
&Add Record
DeleteRecord
&Delete Record
ExitButton
E&xit
HScroller
Text1_Change
Form_Click
@ Form_Load
Form1^
CurrentX
CurrentY
CaptionE
BoxCaptionB
WorkingFileNameD
ConfirmFile
RANDOMFILE(
TheName{
Operation
ConfirmFileErrorp
TheFileR
ReplaceFilel
Confirmation
READFILE
BINARYFILE
Conirmation
LOADFILER
Action
FileErrors
errVal
msgType
MB_ICONEXCLAMATION
ERR_DEVICEUNAVAILABLEE
ERR_DISKNOTREADY
ERR_DEVICEIO
ERR_DISKFULL]
Err_BADFILENAME7
ERR_BADFILENAMEORNUMBERc
ERR_PATHDOESNOTEXIST
ERR_BADFILEMODE
ERR_FILEALREADYOPEN
ERR_INPUTPASTENDOFFILE
response
GetName
LoadOrSave/
NameToUse
FileOpener
RecordLen
ADDTOFILEm
FileNum
OpenerErrorr
WorkingFileNum
Filek
RecordVar
LastRecord
NewRecordFlag
RecordNumberv
Position)
ShowRecord
TempFileFlag
FieldBoxes!
Record
TextT
FirstName
LastName
Salaryc
GenderL
OldContents7
ClearFields
OpenFile_ClickU
CheckEmOuti
WriteQueryV
NewFileNames
CleanUpFile
Result
FALSE
Period
BakName4
CopyFile
NumBoxes
CurrentContents
PriorContents
SameText
EmptyBoxes
Answer
RecordNum
NextRecord_Click
RecordWasStored
PreviousRocord_Click
EsleIf
AddRecord_Click
Fields
DeleteRecord_Click
TempVar
RecordType
ExitBotton_Click
ExitButton_Click
WriteIt
CleanFileNum
RAMDOMFILE6
OldName,
NewName@
FileType
RecVar^
CopyError
OldNum
NewNum
FieldBoxes_Change
Index
HScroller_Change
ScrollerUpdate
RecordStored
HScroller
Value
SmallChange
LargeChange
Form_Load
Record Editor"
Using
If you want to create a new record file, choose OK,
then choose Add Record to add a new record.
To load a file that already exists
on disk,"
choose the Open File button and type the name"
of the file you want to open.
Tmp. file,
, found. Choose OK to erase "
current contents, or chooes Cancel to load it as it is."
Old temporary file found!"
ConfirmFile
The file "
already exists on disk."
Saving the text box contents to that file will
destroy the file's current contents, replacing
them with the text from the text box."
Choose OK to overwrite the file, Cancel to stop.
File Massage
The file "
doesn't exist."
Would ypu like to create and the edit it?"
Choose OK to create the file, Cancel to stop."
File Message
FileErrors
That device appears unavailable.
Insert a disk in the drive and close the door.
Internal disk error.
Disk is full. Continue?
That filename is illegal."
That path doesn't exist.
Can't open your file for that type of access."
This file is already open"
This file has a nonstandard end-of-file marker,
or an attempt was made to read beyond
the end-of-file marker."
Disk Error
GetName
File name"
FileOpener
ShowRecord
OpenFile_Click
Please enter file to open:$
Couldn't find
Do you want to create "
File Not Found
Couldn't create .BAK file"
Record Editor: "
CheckEmOut
Would you like this record stored now?
Store Now?
NextRecord_Click
This is the last record in the file. Choose Add "
Record if you'd like to add a new record now."
PreviousRocord_Click
This is the first record in the file. Choose Next "
Record if you'd like to see other records now.
AddRecord_Click
ClearFields
DeleteRecord_Click
This is the last record in the file. Deleting it will destroy
the whole file.
Record Editor will also be closed."
Choose OK to destroy file"
About to delete file!"
ExitButton_Click
WriteQuery
Do you want to save these records to a file?
Save these records?"
Save As:$
The old
will be overwritten!"
OverWriting old file
CleanUpFile
~T2m3p7~.Tmp
~T2m3p7~.Tmp
~T2m3p7~.Tmp
~T2m3p7~.Tmp
CopyFile
HScroller_Change
ScrollerUpdate